@array=(1..10);foreach (@array){$s="* " x $_;printf( "%+5s",$s);print"\n";} 注意我使用了printf语句，进行格式化输出
@array=(1..10);foreach (@array){$s="* " x $_;print "$s\n";}
