#!/usr/bin/perl -w

use strict;

my (@name, @phone, @address, @birthday, @salary, @state, @fname, @lname);
my ($n, $p, $a, $b, $s, $first, $last);

die "Please supply a file...\nUsage: ./adb0011.pl <file>\n" unless my $file = shift;

open (FILE, "<", $file) or die "Failed to open $file!\n";

while (<FILE>) {
  ($n, $p, $a, $b, $s) = split(/:/);
  push(@name, $n);
  push(@phone, $p);
  push(@address, $a);
  push(@birthday, $b);
  push(@salary, $s);
}

close FILE

foreach (@name) {
  ($first, $last) = split(/\s/);
  push(@fname, $first);
  push(@lname, $last);
}

print "$_\n" foreach (@lname);