{
package AnObj;
sub new {
 bless [], $_[0];
}
sub foo {
 print "just ";
 $_[0];
}
sub bar {
 $_[1] = "ack";
 OtherObj->new("erl h");
}
}

{
package OtherObj;
sub new {
 bless [$_[1]], $_[0];
}
sub baz {
 print "anot", $_[1], $_[0][0];
 "er,\n";
}
}