tie @b, &^Px$^P;
# without duff's device I can copy array very efficently
push @b,$_ for@a;
# oh, I nearly forgot magical subs, so here they are
sub DESTROY { }
sub AUTOLOAD {
        ($#, %c)= qw(%c $#);
        print $_[1];
        bless [];
        }
__END__