foreach $data(@datas){ @data=split("/",$data); $data[4] =~ s/\.prn//ig; push(@arr,"$data[0]/$data[1]"); } [download]
In reply to Sort and push by sandy1028