foreach my $record (@records) {
  # Do stuff with $record
}

##</code><code>##

for(;$index<@records;$index++) {
  # Do stuff with $records[$index]
}