my $code = \&mysub(10);

sub mysub($@){
   my $need = shift;
   my $have = 0;
   foreach (@_){
      $have += $_;
   }
   if($need != $have){
      return;
   }
   return 1;
}

if($code->(1,2,3,4)){
   print "You had the correct number";
}