Select Code to Download

while (<FH>) {
  chomp ;
  @array = split ;
  # do something with @array
}

while (<FH>) {
  $line = $_ ;
...
  # do something with @array; $_ is preserved so you
  # can use it again
}