use strict;
use warnings;

my @mammals = qw{ cat dog heron parrot stoat zebra };
my @birds   = qw{ coot sparrow };

print qq{Before:\n     @mammals\n     @birds\n};

splice @birds, 1, 0, splice @mammals, 2, 2;

print qq{ After:\n     @mammals\n     @birds\n};

##</code><code>##

Before:
     cat dog heron parrot stoat zebra
     coot sparrow
 After:
     cat dog stoat zebra
     coot heron parrot sparrow