for my $key (sort keys %entry) {
#print Dumper($entry{$key}[1]);
my @entry;
        for (my $i = 0; $i <= $#entry; $i++){
          print $key, " ========================= \n";
          for (my $j =0; $j <= 10; $j++){
            print "Entry[$i][$j] = $entry[$i][$j] \n";
          }
        }
}