$ perl -wle 'print ref bless [] => 0'
0