rubyでいうところの
% ruby -e 'print [1,2,3,4,5].reverse[0..2], "\n"'
をやりたいのですが、
% perl -e 'print reverse(1,2,3,4,5)[0..2], "\n"'
で怒られてしまいます。

何かナイスな書き方ってありますか？