#!/usr/bin/perl
use warnings;
use strict;
use Data::Dumper;


my @line = qw( foo bar baz etc etc etc );
splice @line, 1, 0, '';  # Insert at position 1, replace 0 elements.
print Dumper \@line;