open (WORDS, 'data.txt')
  or die "Can't open employees2.txt: $!\n";

my @cols = qw('data.txt');