#!/usr/bin/perl
use strict;
use warnings;

my $line = "ssn|empNo|ncEmpName|empName|hireDate|ncAddr|addr|state|ncCity|city|zip";

my @columns = split /\|/, $line;

print "@columns[-1,-4,4,3]\n"; # "zip state hireDate empName"