my ($num1, $flag) = @_;