do { my $i = 16; ${ \(++$i) } = 'fred'; $i };  # returns 'fred'

do { my $i = 16; ${ \($i++) } = 'fred'; $i };  # returns 17