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

sandy1028 has asked for the wisdom of the Perl Monks concerning the following question:

How to sort all the values before pushing to an array. The values in @arr should be in sorted order after all the values are pushed into array.
foreach $data(@datas){ @data=split("/",$data); $data[4] =~ s/\.prn//ig; push(@arr,"$data[0]/$data[1]"); }