sub parse_name {
    my ($namestr) = @_;
    my @names = split(/\s+/, $namestr);
    my ($last, $first, $middle) = ($names[0], $names[1], $names[2]);
    $last =~ s/,$//;
    $middle ||= "";
    return [ $first, $middle, $last ];
}