@cache = `cat filelist`;

foreach $path (@cache) {
        open F, $path;
        while (<F>) {
                if (/hostname ([\-\w]+)/) {
                        $hostname = $1;
                        last;
                }
        }
        print "$hostname\n";
}