foreach my $line (@arr) {
   ## stuff goes here;
}