Select Code to Download

sub new {
   my $class = shift;
...
   bless $self, $class;
   return $self;
}

%hash1{'list1'}-> [1,2,3,4]
%hash1{'list2'}-> [4,5,6,7]
...