my$ausgabe;
my$chr;
sub test{
  chomp (my $text = "-. .-- -.);
                foreach(split(/[^\.|\-]+/, $input)) {

                  foreach my $chr (keys(%mcode)) {
    print $chr if($mcode{$chr} eq $_);      #<=  hier soll $chr in eine Variabel außerhalb der Sub gespeichert werden
                                            
                                                 }
                                                   } 
}
$ausgabe = $chr;