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__

##</code><code>##

 loop 2
2 4 6 8 10 12 14 16 18 20
 loop 3

 loop 4

##</code><code>##

warn " loop $loop i $i \n";

##</code><code>##

 loop 2 i 1
2 4 6 8 10 12 14 16 18 20
 loop 3 i 11

 loop 4 i 11


##</code><code>##

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