use strict;

package Dummy1;
our @ISA = 'Exporter';
our @EXPORT = qw[ sumem reversem ];

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

sub reversem {
	return map{ scalar reverse } @_;
}
1;