while ($output = <LIST>) {
    chomp $output;
    $file = 'test.pat';
    $file2 = $output;
    $file3 = "$output.res";
...