push @lastnames, map { $_->[1] } map { [ split "," ] } while (<FH>);