Help for this page
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
www.com | www.net | www.org
No recent polls found