#!/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";
        }
    }