your $program, 'here'; __END__ # perl /tmp/slices.pl Initially: $VAR1 = [ '1', '2', '3' ]; After assign from: $VAR1 = [ '1', '2', '3' ]; After grep over: $VAR1 = [ '1', '2', '3', undef, undef, undef ];