my $tab = "\t";
     my $LF = "\n";
     my $x;
     foreach $x (reverse (1 .. 15))
        {print $x, $tab, $x*$x, $LF}