my @funktions_werte;
my @funktion_returns;

#...

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

#...

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 ausgabe_return;
}