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