Or if youre happy using $_ why not :

for (1..243) {
    print FH qq($FORM{"item$_"}\t$FORM{"qty$_"}\n) if $FORM{"qty$_"};
}
[download]