The line:

has a bug. The chomp function does not return the string which has been chomped; it returns the number of characters removed. So, if the last line in the file does not end in a newline character, chomp returns zero, the while loop terminates, and the last line of data is lost. If the last line does end in a newline character, the last line is processed but the loop doesn’t terminate, so on the next iteration chomp is called on a value of undef, which results in a warning if use warnings; is in effect. The correct approach is:

while ($line = <F>) {
    chomp $line;
    ...
[download]

BTW, you do always begin your scripts with:

use strict;
use warnings;
[download]

don’t you?

Hope that helps,

Your subroutine never inserts anything into an array, so nothing is returned by report() and stored in @array. Also, while your reverse-chop-reverse may be good kung-fu, it's much easier to substr($line,1,8) to get rid of the '#' at the beginning. Further, the substr means you don't need the chomp.

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;
}
[download]

Update(s): add path to array elements, not just to print statement. Remembered after that foreach aliases placeholder with array elements so we don't have to replace with C-style for.

But your subroutine just prints the values instead of returning them, hence the (implicitly returned) "0". There are much more efficient ways of doing this, e.g.:

perl -ple '$_ = "/efsprod/docmnt/" . substr $_, 1, 8' Textfile.txt
[download]