#!/usr/bin/perl

print "How many would you like to calc?\nEX. 10, 100, 1000 :" ;
$howmany = <STDIN>;
$counter = 0;
$counting = 0;
$count = 0;

while ($howmany > $counter )
{
$counter++;
$counting++;
if ($counter == 10)
{
 $counter == 0; 
}

$answer = $counting * $count;
$stuff = "|".$count." * ".$counting." = ".$answer."|";

if ($count < 10)
     {
     print $stuff;
     $count++;
     }
if ($count == 10)
     {
     print $stuff."\n";
     $stuff = "";
     $counting == 0;
     $count == 1;
     }
}