Select Code to Download

my $parser = XML::LibXML->new->parse_file($file);
my $xml = XML::LibXML::XPathContext->new($parser);
$xml->registerNs($string,'http://www.garmin.com/xmlschemas/TrainingCen
+terDatabase/v2');

for my $key ($xml->findnodes('//x:Lap')) {
 $string = norm_date($key->findvalue("\@StartTime"));
}

for my $node ($xml->findnodes('//y:Trackpoint')) {
 $time = $node->findvalue("Time");
 push @X,$time;
}

for my $node ($xml->findnodes("//y:Trackpoint")) {
 for my $ch ($node->childNodes) {
...
 }
 push @X,$time;
}