一个小程序大家帮忙看看～～

彩叶草

要求用Perl写～  输出下面的东东～！   ：—）
1+11+111+1111+11111+111111+1111111+11111111+111111111 =
2+22+222+2222+22222+222222+2222222+22222222+222222222 =
3+33+333+3333+33333+333333+3333333+33333333+333333333 =
4+44+444+4444+44444+444444+4444444+44444444+444444444 =
5+55+555+5555+55555+555555+5555555+55555555+555555555 =
6+66+666+6666+66666+666666+6666666+66666666+666666666 =
7+77+777+7777+77777+777777+7777777+77777777+777777777 =
8+88+888+8888+88888+888888+8888888+88888888+888888888 =
9+99+999+9999+99999+999999+9999999+99999999+999999999 =


这是我写的，不知道那位高手还有其它的写法。

for $i (1..9) {
    $tp=1;$sum=0;
    while($tp<=9){
    print '+' if $tp!=1;
    $v="$i"x"$tp";
    print "$v";
    $sum+=$v;
    $tp++;
    }
    printf (" =%11d\n","$sum");
}