use warnings;
use strict;

my %hash = (
          '1-1' => 80,
          '1-4' => 26,
          '4-4' => 3,
          '2-2' => 180,
          '2-4' => 72,
          '1-2' => 2196
        );
    
    my $count=1;
    foreach my $key (sort{$hash{$b}<=>$hash{$a}} keys %hash )
    {   
        print "$key :  $hash{$key}\n" ;
        last if $count++ > 1;
    }