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 ($key,$val);
foreach(($key,$val)=each %$hash_ref){
    print "Each()=======================>$key=>$val<=======================\n";
    print "Default>>>>>>>>>>>>>>>>$_<<<<<<<<<<<<<<<<<<\n";
}