my @a;
while (<INFILE>) {
  my ($fn, $ln, $age) = split("\t", $_);
  # now convert this array to a hash and stuff it in the array
  push(@a, {'fn'=>$fn, 'ln'=>$ln, 'age'=>$age});
}