my $ausgabe = sub1( text => "die option $_ ist vorhanden\n" );

sub sub1 {
  my %para = @_;

  my $ausgabe;
  # @option enthält n Einzelwerte
  foreach (@option) {
    $ausgabe .= $para{text};
  }
  return $ausgabe;
}