for my $i ( [], {} ) {
    bless $i, 'BLAH';
    printf( "%s\t%s\n", ref($i), $i )
}