#!/usr/bin/perl
# http://www.cs.dal.ca/~vlado/srcperl/snip/random-choose
# 2004 Vlado Keselj
#
# Select random m elements out of an array.

@A = qw(A B C D E);
@B = ();
$m = 2;

while ($#B+1 < $m) {
    my $i = rand($#A+1);
    push @B, $A[$i];
    splice(@A, $i, 1);
}