#!/usr/local/bin/perl -l
use strict;
use warnings;
use Data::Dumper;
my @a = 1, 2, 3 , 4, 5;
my @b = splice(@a, 3);

say Dumper(\@b);