my $doc = ...; # read/parse XML file
my @first = $doc->findNodes('./*[1]');
my @last = $doc->findNodes('./*[last()]');