#!/usr/bin/perl
use strict;
use warnings;

my @array = (1,2,3,4,5,6,7,8,9,10);

print "$_\n" foreach @array[-3..-1];