foreach my $i ( ... )
{
    ...
}