perl -we'upd(@x[0..2]); sub upd { @_[0..2] = "a".."c" } print @x'
abc