This looks like a job for Array Slice Man!

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

No, that's all right, citizen! Your gratitude is reward enough!

    -- Chip Salzenberg, Free-Floating Agent of Chaos