A micro op that may save you time is to anchor your regex.. Which may or may not be possible.. I was thinking something along the line of say

.. snip ..
   if (/^hostname ([-\w]+) /)

or
   if (/^(?:\s+|)hostname ([-\w]+) /)
[download]

or even better if its on a line all by itself as you can at either end of the string..

I know its not why you asked, but you arent testing to see whether or not your open was successful..

# old line
open F, $path;

# new line IMHO
open(F, "$path") || die "Cant open $path: $!\n";

# or even
open(F, "$path") 
   || ( print "Cant open $path: $!\n" && next);

# another small trim would be to do away with the interim
# array and filename.. 
$filelist = "/var/adm/links/newrun/filelist";

for ( `cat $filelist` ) {
   chomp;
   open(F, "$_") || die "Cant open $_: $!\n";

   while (<F>) {
# anchor could apply here as well.. 
      !/hostname/ ? next : chomp;
 # work on hostname lines here
      last;
   }
   close(F);
   print $hostname. " ";
}
[download]

Just some rambling thoughts on the code..

MMMMM... Chocolaty Perl Goodness.....