my $next = rotate($head, 2); my $item = { marble => $marble, next => $next, prev => $next->{prev} }; $item->{prev}{next} = $item; $item->{next}{prev} = $item; $head = $item;