my $lastname = dpath( q{/*/firstname[ value =~ /Alice/i ]/../lastname} )->match( \%uid ) 
my $lastname = dpath( q{/*/firstname/.[ value eq 'Alice' ]/../lastname} )->match( \%uid ) ;