@arr=(11,22,33,44);

print for (@arr);  #1
print foreach (@arr);  #2
for($idx=0;$idx<scalar(@arr);$idx++) #3
{
        print $arr[$idx];
}

$idx=0;
while($idx<scalar(@arr)) #4
{
        print $arr[$idx];
        $idx++;
}

print join(",",@arr); #5
print "@arr"; #6
print @arr; #7