while (my $record = <EMPLOYEES>) {
  chomp $record;
  my @person = split /\t/, $record;
  # now do something interesting with @person
}