package MyObj;
sub new {
　　my ($class) = @_;
　　my $self = { 'items' => [] };
　　bless $self, $class;
}
sub set {
　　my ($self, $newitem) = @_;
　　push @{ $self->{'items'} }, $newitem;
}
sub take {
　　my ($self) = @_;
　　pop @{ $self->{'items'} };
}
1;
いまPerl初心者の俺のコードが簡単に言うとこんな感じになってるんだが
Perl使い的にはどう書くんだ？