my $num=0;