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