#! perl -slw
use strict;

package Dummy3;

sub new {
	my $class = shift;
	return bless [ @_ ], $class;
}

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

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