my $num1 = shift;
my $flag = shift;