Select Code to Download

#!/usr/bin/perl
use strict;    
...
    }   
    return $k,$v;
}

    my ($maxkey, $maxmax) = kv_for_largest_v($distances{$key1};

sub kv_for_largest_v {
    my $hr = shift;
...
    }
    return \@rv;
}