ちょっと質問なのですが、

my (@rfary) = ["7", "8", "9"];

としたとき

print @rfary; ですべてが出力されません

↓を試したのですが、ループは一回しか発生せず７しか出力されません

foreach (@rfary) {
print ${ $_ }[$cnt];
$cnt++;
}

探し回って↓のようにするとうまくいくようなのですが、どうにも
ややこしすぎます。

for $i (0 .. $#rfary) {
for $j (0 .. $#{$rfary[$i]}) {
print $rfary[$i][$j];
}
print "\n";
}


無名配列を print @rfary のように簡単に全出力する方法はないのでしょうか？
また、なぜ print @rfary で全出力出来ないのでしょうか？