sub osmtree_waymerger { waymerger(@_); } sub waymerger { my $log = shift; print Dumper \@data;