フツー$#a使うわなぁ・・・
for(0..$#a) {;
　　$a[$]
　　print ++$a[$_]." ";
}

あとこんなんとか・・・
foreach(@a) {
　　print ++$_." ";
}