my $a=$num1;
my $b=$num2;