package Cube;
sub remap {
    my ($self, blah blah) = @_;
    blah blah 
    my $n = Cube->new(blah blah);
    blah blah 
    return $n;
}