http://qs321.pair.com?node_id=669252


in reply to Sorting hash

Hi vsailas,

You can try like this by modifying your array(@Data) to little bit as,

use strict; my @Data; while(<DATA>){ chomp($_); my($string,$listref,$count)= split(',' , $_); 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 meth3, \@array2, 36 meth1, \@array3, 8 meth5, \@array4, 10

Punitha