#!/usr/bin/perl
use strict; #Enable stuff to prevent you from doing many stupid things
use warnings; #give me warnings when i do make stupid things, that are not that stupid.
print "How many would you like to calc?\nEX. 10, 100, 1000 :" ;
my $howmany = int <STDIN>; #convert the read in to a number, we dont actually check it, but if its not a number, we read 0
for my $outer (1..$howmany) {
  for (2 .. 10) { #alias the number to $_
    my $answer = $_ * $outer;
    print "|$_ * $outer = $answer|";
  }
  print "\n";
}