@a = ( 1, 2, 3, 4);
for(@a) {
    print;
}
print "\n";
foreach(@a) {
    print;
}
print "\n";

for($i=0; $i<@a; $i++) {
    print @a[$i];
} 
print "\n";
foreach($i=0; $i<@a; $i++) {
    print @a[$i];
} 
print "\n";

##</code><code>##

1234
1234
1234
1234