my $key;   
   print "$key = ";   #  zeile 181
...