my $isnum = 1 if ($param =~ /^\d+$/);