Select Code to Download

#!/usr/bin/perl
use strict;
...
65-em
14-auf
14-ab

 Hash Value of 14 : vor auf ab

if (exists $hash{$l} and @{$hash{$l}}>0) {
  print "Hash value of $l is $hash{$l}->[0]\n"; #or the short form $ha
+sh{$l}[0]
...
else {
  print "Nothing found for $l\n";
}