test_shift.pl example showing shift with arg