use strict;
use warnings;
my $path = "/efsprod/docmnt/";
my @array = &report();
foreach my $line (@array) {
  $line = $path . $line;
  print "$line\n";
}

sub report() {
  open(F,"Textfile.txt") or die "$!\n";
  my (@filelist);
  while(<F>) {
    push @filelist, substr($_,1,8);
  }
  return @filelist;
}