foreach my $element (@ary)
{
  # ...
}