$val = unshift ( @{$a->[$i]} );