Something

package Dice;
use warnings;
use strict;

sub new {
   my $inv = shift;
   my $class = ref($inv) || $inv;
   my (@init_stack) = @_;
   $self->{stack} = \@init_stack;
   return bless $self, $class;
}
sub eval {
   my $self = shift;
}
sub add {
   my $self = shift;
   my( @stack ) = @_;
   my $new = new Dice($self->getStack(), @stack, "+");
}
sub getStack {
   my $self = shift;
   return @{$self->{stack}};
}