#!/usr/bin/perl
use strict;
use warnings;

my @list = map {[qw/foo bar blah baz/]} 1 .. 5;
splice(@$, 0, 1, "hello", "world") for @list;

print "@$\n";