Help for this page
my @array = <DATA>; @array = sort { $a cmp $b } @array; print @array; ... 505!blah 180!137! 190!138!
1!yeada 100!100!key!date!2.. 100!100!key!store! ... 500!blah 503!blah 505!blah