配列の数だけループさせたいとき
こういうふうに書いてるんですが

for(0..(@a-1)) {
$a[$_] ++;
print $a[$_]." ";
}

もっとスマートにかける方法ありませんか?