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

##</code><code>##

while(<JOE>){
    @data = <JOE>;
}