%ex = (
37 => "p" , 41 => "t",
23 => "s" , 52 => "m",
44 => "a" , 65 => "q",
26 => "d" , 88 => "o" , 
99 => "g" , 100 => "l" , 101 => "f" , 201 => "i"
); 

##</code><code>##

sub perlhash
{
$hash = 0;
$hash = ($k % 10);
return $hash;
}


while(($k , $v) = each(%ex)) {
$hash = perlhash($k);
$ch = $buckets[$hash];
print Dumper $buckets[$hash];
if(scalar @{$ch} == 0){
$entry = {$k => $v};
}else{
 $entry = $ch->[0];
 $entry->{$k} = $v ;
 }
push @$ch , $entry;
}
print Dumper @buckets;

##</code><code>##

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

##</code><code>##

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