sub parse_name {
    my ($last, $first, $mi) = ( $_[0] =~ /(\w+)\W*?(\w+)\s?(\w)?/) ;
    return [$first, $last, $mi];
}