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