while (<EMPLOYEES>) {
    chomp;
    (my @f = split(/:/)) == 5 or next;
    print join("\t", @f[2, 3, 0, 4]), "\n";
}