Select Code to Download

#!/usr/bin/perl
use warnings;
use strict;
...
}
print "$highest key has the highest value\n";

4 key has a value 7 
1 key has a value 8 
3 key has a value 3 
2 key has a value 6 
2 key has the highest value