Select Code to Download

my $foo = new Foo;

$foo->add_item("Cheese");
...
sub add_item {
    push @{ $_[0]->{_items} }, @_[1 .. $#_];
}

$foo = bless( {
                '_orderid' => '',
                '_items' => [
...
                              'Cat'
                            ]
              }, 'Foo' );