my $var1 = shift || 0;
my $var2 = shift || 0;