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