$_= shift for my ($i, $j, $k);