Select Code to Download

#! /usr/bin/perl
use warnings;
...
    my $minimal = min_by { $_ } keys %$subhash;
    print "$name, $minimal\n";
}

use List::UtilsBy qw{ minmax_by };

...
    my ($minimal, $maximal) = minmax_by { $_ } keys %$subhash;
    print "$name, $minimal - $maximal\n";
}