...
while (my $line = <EMPLOYEES>) {
  chomp $line;
    my ($name,$department, $salary) = split /\t/, $line;

print "n=$name\n";
print "d=$department\n";
print "s=$salary\n";
...