my $meth = sub { 
    $_[0] .= $_[1]->reshape($_[0]->dims) 
};