#!/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";
}