for my $punkt (keys %polygon){
 push @{ $polygon{ $polygon{$punkt}[2] } }, $punkt;
}