#! perl -slw
use strict;

package Dummy4;

sub new {
	my $class = shift;
	return bless { data =>  \@_ }, $class;
}

sub sumem {
	my $self = shift;
	my $sum += $_ for @{ $self->{ data } };
	return $sum;
}

sub reversem {
	my $self = shift;
	@{ $self->{ data } } =  map{ scalar reverse } @{ $self->{ data } };
}
1;