sub reform {
    my ($r_old, $x) = @_;
    my @old = @{$r_old};
    my @new;

    push @new, [splice @old, 0, $x] while @old;

    @new;
}