my @array = qw(aaron george bob tom nick heyyou john);

my $numitems = int(rand($#array));
for(my $i = 0; $i < $numitems; $i++) {
        my $item = int(rand($#array));
        print @array[$item] . "\n";
}