$ perl -Mstrict -Mwarnings -e 'sub allVars($no1) { 1 }'
Illegal character in prototype for main::allVars : $no1 at -e line 1.

##</code><code>##

my ($self, $no1, $no2, $name1, $name2) = @_;

##</code><code>##

$object->allVars(...)

##</code><code>##

#!/usr/bin/env perl -l

use strict;
use warnings;

package Some::Module;

sub new { bless {} => shift }

sub all_vars { print "all vars = @_" }

package main;

my $obj = Some::Module::->new;
$obj->all_vars(qw{a b c d});

##</code><code>##

all vars = Some::Module=HASH(0x7fc55c003098) a b c d