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
In Section
Seekers of Perl Wisdom