#!/usr/bin/perl

$data_file="/tmp/input_ext_id.txt";
open(DAT, $data_file) || die("Could not open file!");
@datas=<DAT>;

foreach $data(@datas){
$data_orig=$data;
@data=split("/",$data);
$data[4] =~ s/\.xml//ig;
chomp($data_orig);
push(@finalarr,"$data_orig#$data[0]/$data[1]/$data[2]/$data[4]");
push(@finalarr, "$data[0]/$data[1]/$data[2]/$data[4]");
}
@sorted_list = sort(@finalarr);