Next time, please be more specific about what your exact problem is, instead of letting us guessing it.
Also give a good title next time, this one doesnt say one thing about what your problem is either. Try with newbie problem with <whatever it is you have a problem with>...

#!/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 a
+ctually 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";
}
[download]

T I M T O W T D I