my @funktions_werte;
my @funktion_returns;
my $return_to;

#...

$return_to='ausgabe_return1';
@funktions_werte=('Etwas text',2);
goto ausgabe;
ausgabe_return1:
if($funktion_returns[0])
{
  print "Erfolgreich\n";
}
else
{
  print "FEHLER\n";
}

$return_to='ausgabe_return2';
@funktions_werte=('Anderer Text',1);
goto ausgabe;
ausgabe_return2:

#...

ausgabe: do
{
  my $text=$funktions_werte[0];
  my $wiederholungen=$funktions_werte[1];
  my $ok=0;
  for(my $i=0; $i<$wiederholungen; $i++)
  {
    print "$i : $text\n";
    $ok++;
  }
  @funktion_returns=($ok);
  goto $return_to;
}