print expected($a1, "A3", "HASH"), "ok 11\n";
print expected($b1, "B3", "ARRAY"), "ok 12\n";
print expected($c1, "C3", "SCALAR"), "ok 13\n";
print expected($a1, "A3", "HASH"), "ok 11\n";
print expected($b1, "B3", "ARRAY"), "ok 12\n";
print expected($c1, "C3", "SCALAR"), "ok 13\n";