Try This

$y=10;

for ($x=1;$x<=$y; $x++)
    {
            print "$x -->\t";
        foreach (1..$y)
        {
            $result = $x*$_;
            print "$result\t";
        }
            print "\n";

    }
[download]

Change $y if required

Rds/Praveen