my $p = $lines{$count}{'line'}->get('points');
#        print "@$p\n";

##</code><code>##

$hash{'route1'} = @$p;  # holds the pathpoints for route1