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