Simple, snappy, short:
#!/usr/local/bin/perl -w
use strict;
for$-(1..9){printf'%3d',$_*$-for 1..9;print$/}

Much easier than memorising your multiplication tables, no?

-w and strict optional, of course.