#!/usr/bin/perl
use warnings;
use strict;


my %hash=  ( '1', '8', '2', '6', '3','3' ,'4','7');
my $highest =0;
while (my ($key, $value) = each %hash) {
        $highest=$key if ($highest <  $value) ;
        print "$key key has a value $value \n";
}
print "$highest key has the highest value\n";