Text file</br>
#AAA45S49.${datestamp}.${timestamp}.txt
#BBB75SWI.${datestamp}.${timestamp}.txt
#YYYYYY.${datestamp}.${timestamp}.txt
#XXXXXXX.${datestamp}.${timestamp}.txt
#CCCCCCC.${datestamp}.${timestamp}.txt
#DDDDDDD.${datestamp}.${timestamp}.txt
#EEEEEEE.${datestamp}.${timestamp}.txt

#FFFFFFF.${datestamp}.${timestamp}.txt
#FFFFFF2.${datestamp}.${timestamp}.txt
#GGGGGGG.${datestamp}.${timestamp}.txt
#HHHHHHH.${datestamp}.${timestamp}.txt
#IIIIIII.${datestamp}.${timestamp}.txt
#JJJJJJJ.${datestamp}.${timestamp}.txt

##</code><code>##

#!/usr/bin/perl
@array = &report();
foreach $file(@array) {
$path = "/efsprod/docmnt/";
$file = "$path" . "$file";
print "$file";
}

sub report() {
open(F,"Textfile.txt") or die "$!\n";
while(chomp($line=<F>)) {
$line=substr($line,0,9)l
$line= reverse($line);
chop $line;
$line=reverse($line);
print "$line\n";
}

##</code><code>##

The o/p i am expecting as
$file = /test/var/XXX001
        /test/var/......
        /test/var/XXX01B
#but i am getting o/p as
XX001BC
YY001BC
......
......
/test/var/0