use strict;
  my $x = shift();  my $y = shift();
  my @z = @_;
  print "YES!\n" if (...);