foreach $num (@test) {
print $test[$num] . "\n";
}

##</code><code>##

for($num=0;$num<@test;$num++) {
print $test[$num] . "\n";
}

##</code><code>##

print $_ . "\n" foreach @test;