#!/usr/bin/perl -Tw

use CGI;
use XML::Simple;
use strict;

my $xs = XML::Simple->new;
my $xml = eval { $xs->XMLin('../xml/users.xml') };
die $@ if ($@);

my $cgi = CGI->new;

my @foreach;
foreach (@{%{$xml}->{'user'}}) {
    push (@foreach, $_) if $_->{'username'} eq $cgi->param('username');
};

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