#!/usr/bin/perl -- 

use strict;
use warnings;

my @start = (
    'dog',   'cat',      'bird', 'mouse',  'rat',  'snake',
    'horse', 'cow',      'pig',  'lizard', 'lamb', 'zebra',
    'lion',  'elephant', 'monkey'
);


print "Three random items from \@start: ",
      join ' ', 
        $start[ rand @start ],
        $start[ rand @start ],
        $start[ rand @start ],
        "\n";
__END__
Three random items from @start: monkey mouse rat
[download]