use feature qw( say );
use B qw( );

$_ = 333;
"".$_;
$_ = undef;
say B::class(B::svref_2object(\$_));