#!/usr/bin/perl

use strict;
use warnings;

use Scalar::Util 'blessed';

my $ref = bless [], "";

print ref $ref, "\n";
print blessed $ref, "\n";

__END__
Explicit blessing to '' (assuming package main) at "..." line 8.
main
main