sub foo {
    my $x = bless [], "X";
    my $y = bless {}, "Y";
    ...
    return 1;
}