Select Code to Download

$sort[scalar @sort - 1] == $sort[-1];

($a, $b) = ($b, $a);  # swap the values of $a and $b

#!/usr/bin/perl -w
use strict;
...
     = ($hash{$sort[-1]}, $hash{$sort[0]});

print Dumper \%hash;