Help for this page

Select Code to Download

Select or download this

for my $i ($i=1; $i<=243; $i++) {
  print FH "$FORM{'item' . $i}\t$FORM{'qty' . $i}\n"
    if $FORM{'qty' . $i};
}

Select or download this

for (1..243) {
  printf FH "%s\t%s\n", $FORM{"item${i}"}, $FORM{"qty${i}"}
    if $FORM{"qty${i}"};
}