foreach $data(@datas){
@data=split("/",$data);
$data[4] =~ s/\.prn//ig;
push(@arr,"$data[0]/$data[1]");
}