# 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];
[download]

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print