Select Code to Download

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

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