my @users = grep { $_->{'username'} eq $cgi->param('username') @{%{$xml}->{'user'}};