Select Code to Download

@array = ();

$line =~ $_

while($line = <FILEHANDLE>) {
 ...
}

while (<FILEHANDLE>) {
  chomp;
  @array = split /\s+/;
  ...
}