my $variable;
    foreach $variable (LIST) {...}