my $var1 = shift;
my $var2 = shift;...

##</code><code>##

my ($var)=@_;