perldoc -f shift and following this bit of advice therein...

See also "unshift", "push", and "pop". "shift" and "unshift" do the same thing to the left end of an array that "pop" and "push" do to the right end.

and understanding how to split on character boundaries...
and you have it knocked!.