Select Code to Download

use strict;

my @Data;
...
    push(@Data,[$string,$listref,$count]);
}
print "METH:$_->[0]\tREF:$_->[1]\tCOUN:$_->[2]\n" for sort {$a->[0] cm
+p $b->[0]} @Data;

__DATA__
meth2, \@array1, 3
...
meth1, \@array3, 8
meth5, \@array4, 10