Help for this page
my @sorted= map { RESTORE($_) } sort map { XFORM($_) } @list;
sub XFORM { # Extract the sort key from $_[0] and return it. ... map { XFORM($list[$_]) . pack "N", $_ } 0..$#list ];
my @index= map { unpack "N", substr($_,-4) } ... 0..$#name; @name= @name[@index]; @data= @data[@index];
www.com | www.net | www.org
No recent polls found