$ perl -MB -E 'my $x = 1; say B::class(B::svref_2object(\$x)) eq "IV" ? "yes" : "no" '
yes

$ perl -MB -E 'my $x = "1"; say B::class(B::svref_2object(\$x)) eq "IV" ? "yes" : "no" '
no