use strict; use warnings; use diagnostics; use 5.01000; &table( 2, 3, 4 ); sub table { my $i = 1; my $loop; foreach $loop (@_) { warn " loop $loop \n"; for ( $i ; $i <= 10 ; $i++ ) { my $ans = $i * $loop; print "$ans "; } print "\n"; } } __END__ #### loop 2 2 4 6 8 10 12 14 16 18 20 loop 3 loop 4 #### warn " loop $loop i $i \n"; #### loop 2 i 1 2 4 6 8 10 12 14 16 18 20 loop 3 i 11 loop 4 i 11 #### 2 4 6 8 10 12 14 16 18 20 3 6 9 12 15 18 21 24 27 30 4 8 12 16 20 24 28 32 36 40