@x = (1,2,3,6); 
for $val (@x) { 
    print "$val";
    print "\n"; 
}