use 5.003;
for $i (@a) {}
open(FH, $f);