$ perl -E '
    use Scalar::Util "reftype";

    sub routine { 1; }
    my $x = \&routine;
    say $x;
    say ref $x;
    say reftype $x;
    say sub { 1; };
'
CODE(0xa0004a3c0)
CODE
CODE
CODE(0xa0007e370)