Select Code to Download

while (<JOE>) {

my @data = <JOE>;

my @data;
while (<JOE>) {
    push @data, $_;
}

use strict;
use warnings;