perl - Perl で CGI に表示する 3 行をランダム化する

Question

3 行のテキストをランダム化する CGI スクリプトを作成しようとしています。Web ページを表示するたびに、3 つの行が毎回異なる順序で次々に表示されます。これを行う方法とコードは何ですか?

Answer 1

use List::Util qw( shuffle );
@lines = shuffle(@lines);