When FETCH() modifies the array, you should expect the unexpected. It's not necessarily wrong, but it doesn't fit perl's or anybody else's model of how arrays should act.