package mod;
use strict;
use overload '*' => sub {
    return ('yakko', 'wakko', 'dot');
};
sub new {
   my ($class,$val) = @_;
   return bless \$val, $class;
}
package main;
use strict;
my $i = mod->new(90);
my $j = mod->new(60);

my @x = $i * $j;
my $x = $i * $j;
print "@x\n";
print "$x\n";
__END__
dot
dot