perl写乘法口诀急！急！急！急！急！急！

如何用perl 写一个 乘法口诀？希望副一个完整的 程序 谢谢 对者 加分
内容如下：
1x1=1
1x2=22x2=4
1x3=33x2=63x3=9
............
.....9x9=81

我是来看评论的

for $i (1..9) { for $j (1..$i) { print "$j" . '*' . "$i=" . $i*$j . " "; } print "\n"; }