use strict;
use warnings;
use Data::Dumper;
my $hash_ref={1002=>[1,2,3,4,5],1001=>[6,7,8,9,10],3=>[2]};
my ($hashref,$array_ref,@array,);
foreach $hashref( keys %$hash_ref){
$array_ref=$$hash_ref{$hashref};
@array=@$array_ref;
print "Key = ".$hashref."\tValue = ";
foreach (@array){
print "$_ \t";
}
print "\n";
}