#!/usr/local/bin/perl

use strict;
use warnings;
use Data::Dumper;

my @a = (1, 2, 3 , 4, 5);
my @b = splice(@a, -3);

warn scalar Dumper(\@b);