for my $x (1..$howmany)
{
        print "#";
        for my $y (1..10)
        {
                my $answer = $x * $y;
                print "|$x|*|$y|=|$answer";
        }
        print "\n";
}