#!/usr/bin/perl

my @fred = ( "a", "b", "c" );

splice @fred, 2, 0, "hello";

print "@fred\n";