print "\n---------------------Top 4 ---------------------\n";
    print Dumper \%hash;
    print "\n---------------------Top 5 ---------------------\n";