#---Sample.pm---
package Sample;

use warnings;
use strict;

use overload( '+'	=> \&add,
		fallback => 1, );

sub TIESCALAR
{
	my $class = shift;
	my $self = { data => [@_], };
	bless( $self, $class );
	return $self;	
}

sub add
{
	$_ .= $_[1] foreach( @{$_[0]->{data}} );
}

sub STORE
{
	@{$_[0]->{data}} = (ref( $_[1] ) eq 'ARRAY') ? @{$_[1]}: ($_[1]);
}

sub FETCH
{
	return $_[0];
}

1;
#---------------