Help for this page
Select Code to Download
Select
or
download this
sub { push @coords, @_[1,2] }
Select
or
download this
sub { my (undef, $x, $y) = @_; push @coords, $x, $y; }