sub this ($){
    my @this = @_;
    print @this;
}

this(1, 1);

__END__
Too many arguments for main::this at ./sub.pl line 10, near "1)"
Execution of ./sub.pl aborted due to compilation errors.