I would love to see the output when the end of the first loop is changed to

$t{$f}=$s[9];
print $f."\n"; 
}
[download]

Im betting you will see two filenames, one with a forward slash where the other has a backwards slash

with different slashes, the keys would be different, but after the dos conversion they would look the same