$data->{channel}->{item}->[0]->{title};
$data->{channel}->{item}->[1]->{title};
$data->{channel}->{item}->[2]->{title};
$data->{channel}->{item}->[3]->{title};

##</code><code>##

#!/usr/bin/perl

# import packages

use XML::Simple;
use LWP::Simple;

# initialize object

# get RSS data
$raw = get('http://movies.go.com/xml/rss/intheaters.xml');

# create object
$xml = new XML::Simple;

$data = $xml->XMLin($raw);

$title = $data->{channel}->{item}->[0]->{title};

$link = $data->{channel}->{item}->[0]->{link};

$description = $data->{channel}->{item}->[0]->{description};


print "Title: $title\n";

print "Link: $link\n\n";

print "Description: $description\n";