foreach my $corner(@corners){...