# Yet Another Way To Do It
@ary = qw ( 1 2 3 4 5 6 7 8 );
print pop @ary, "<br>\n" for 1..3;

# or
print "$_<br>\n" for reverse @ary[-3..-1];