use Carp qw/croak/; # put near the top of your program

sub function {
    if ( @_ != 2) {
        croak("function() requires two arguments");
    }
    my ( $x, $y ) = @_;
    # ... body of function
}