# Perl 5
my $string1 = 'Hallo';
my $string2 = 'Welt';
mysub($string1, $string2);

sub mysub {
  for my $string1 ($_[0]) {
    for my $string2 ($_[1]) {
       # Ich will hier nicht $_[???] verwenden, und auch keine Referenzen und trotzdem die Variablen im Hauptprogramm beschreiben können.
      $string1 = 'sag'; 
      $string2 = 'ich';
    }
  }
}