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__