use 5.010;
use IO::Handle;

my @numbers = qw(1 3 5 6 7 8);

{
	package Sum;
	use Any::Moose;
	has total => (is => 'rw', isa => 'Num', default => 0);
	sub add
	{
		my ($self, $num) = @_;
		$self->total( $self->total + $num );
	}
}

my $answer = Sum->new;
$answer->add($_) for @numbers;
STDOUT->say( $answer->total );