well it still did not compile

/usr/bin/perl /oven_script/tst/dlt30day-oven1d-j3.pl Global symbol "$f
+ile" requires explicit package name at /oven_script/tst/dlt30day-oven
+1d-j3.pl line 14.
[download]

Quite unsurprising, because you don't declare $file and you never assign a value to it before using it. You use a variable @files above that - maybe you wanted to use an element of @files?