Select Code to Download

use Data::Dumper;
use warnings;
...
my @foo = ( 0,1,2,3,4,5 );
splice (@foo,78,0,(7,8));
print Dumper \@foo;