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

sub sub1 {
  my %para = @_;

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