Awww! Can't believe you missed the opportunity for a list assignment here. :)

($curr->{next}, $tail, $curr) = ($tail, $curr, $curr->{next});