#...

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

ausgabe('Anderer Text',1);
#...

sub ausgabe
{
  my $text=$_[0];
  my $wiederholungen=$_[1];
  my $ok=0;
  for(my $i=0; $i<$wiederholungen; $i++)
  {
    print "$i : $text\n";
    $ok++;
  }
  return ($ok);
}