#!/usr/local/bin/perl
use strict;
use warnings;
use diagnostics;
use 5.01000;

table( 2, 3, 4 );

sub table {
    foreach my $loop (@_) 
    {
       print $_*$loop, ' ' for 1 .. 10;
       print "\n";
    }
    
}