foreach (@array) {
  any other perl code you want
}