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

##</code><code>##

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