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