Help for this page
my $p = $lines{$count}{'line'}->get('points'); # print "@$p\n";
$hash{'route1'} = @$p; # holds the pathpoints for route1