use Data::Dumper;
print header('text/plain');
print Dumper($foo);

##</code><code>##

$foo = XMLin($xml, forcearray => 1);

##</code><code>##

$foo = {
 'INFO' => [
            {
             'lastchecked' => '20010506070758',
             'content' => 'Rendered by the Newest Nodes XML Generator',
             'site' => 'http://perlmonks.org',
             'sitename' => 'Perl Monks'
            }
           ]
       };

##</code><code>##

if(defined @{$data->{'INFO'}}){
   for my $when(@{$data->{'INFO'}}){
      $lastcheck = $when->{'lastchecked'}
      }
   }