Select Code to Download

use strict;
use warnings;
...
splice @birds, 1, 0, splice @mammals, 2, 2;

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

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