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