Select Code to Download

%ex = (
37 => "p" , 41 => "t",
...
26 => "d" , 88 => "o" , 
99 => "g" , 100 => "l" , 101 => "f" , 201 => "i"
);

sub perlhash
{
...
push @$ch , $entry;
}
print Dumper @buckets;

print "enter a key u want to search";
$k = <STDIN>;
$h = perlhash($k);

my $VAR1 = [
      {
        '37' => 't',
      }
];