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