sub { push @coords, @_[1,2] }

##</code><code>##

sub { 
    my (undef, $x, $y) = @_;
    push @coords, $x, $y;
}