Help for this page
splice @$fields, $i, 0;
>perl -wMstrict -le "my $ar = [ qw(a b c d) ]; ... 'C', 'D' ];