Select Code to Download

use Benchmark qw(cmpthese);
use strict;
...
sub by_ref {
   ${ $_[0] } =~ s/\s+//;
}

my %data = (min_alias => 999999999, min_ref => 999999999);
while (<>) {
...
}

print "$_ => $data{$_}\n" for sort keys %data;