c:\@Work\Perl\monks>perl -wMstrict -le
"sub F { return 4; }
 sub G { return 5; }
 sub H { return 6; }
 ;;
 for (F(), G(), H()) { ++$_;  printf qq{$_ }; }
"
5 6 7