#!/usr/bin/perl

for ($i=1; $i<15; $i = $i + 1){
    for ($j=1; $j<15; $j = $j + 1){
        $multi = $i * $j;
        print "$i X $j = $multi;\n";
        }
    }