[MacPerl] Loop question

[Matthew Fischer <mfischer@fishmancom.com>]

I have a script that reads a file into an array, then prints out each line of the array, then does some other stuff with the array. I need to change it so it only prints out the first 8 lines of the array. How would I change this to do that?


    foreach $line (@whole) {
      $line =~ s/\n//g;
      print "$line\n";
      

    }

# ===== Want to unsubscribe from this list?
# ===== Send mail with body "unsubscribe" to macperl-request@macperl.org