sub sub1 {
  my %para = %{ shift @_ };
  my @option = @_;

  my $ausgabe;
  # @option enthält n Einzelwerte
  foreach (@option) {
    my $s = $para{text}; 
    $s =~ s/\\n/\n/g;
    $s =~ s/\[\$_\]/$_/g;
    $ausgabe .= $s;
  }
  return $ausgabe;
}

my $ausgabe = sub1( { text => 'die option [$_] ist vorhanden\n' }, qw( Option1 Option2) );

print $ausgabe;