my @ways4track = ();
  for my $ele_way (@data){
    ....
	my @element_data = ($ele_way, $way_firstnode, $way_lastnode);
    ....
	  push(@ways4track,\@element_data);
	}
    ....
	}#end-for - ele_way

    # warum sei es darum...	
	my @ways4track2analyze = @ways4track;
	
    # das mal so zum anzeigen - ist ok!
	foreach my $way_data (@ways4track2analyze){
	  print "0-ID... ".$way_data->[0]->id()."\n";
	  print "1... ".$way_data->[1]."\n";
	  print "2... ".$way_data->[2]."\n";
	  #foreach my $way_parameter (@$way_data){
	  #  print $way_parameter."\n";
	  #}
	}

my $first_way = @{$ways4track2analyze[0]};

print "--- Dumper:\n";
print Dumper($first_way);

my $first_obj = $first_way->[0];
my $first_start = $first_way->[1];
my $first_end = $first_way->[2];