use MyMVR;

my $a = MyMVR->new(0,0,0);
my $b = MyMVR->new(1,1,1);

print $_ ."\n" foreach (@{$a - $b});