if ($num =~ m/^(0\.([0-3]|400))/){
		 print "$num is $numsh{$num}".$/;
		 }