$ perl -le '@a = 1..3; @b = @a[(@a-5)..$#a]; print "<$_>" for @b;'
<2>
<3>
<1>
<2>
<3>