#!/usr/bin/perl
use warnings;
use strict;

my @server_list = ( 'server1', 'server2', 'server3', 'server4' ); 
my @picked = ( 0,0,0,0 );

my $picks = shift;
foreach ( 1 .. $picks ) {
    my $i = int(rand( scalar @server_list ));
    print "Guess = $i\n";
    while ( $picked[$i] ) {
        $i = int(rand ( scalar @server_list ));
        print "Guess = $i\n";
    };
    for my $j ( 0 .. $#server_list ) {
        if ( $j == $i )  {
            $picked[$j] = 1;
        }
        else  {
            $picked[$j] = 0;
        }
     }
     print "Chosen => ", $i, "\n";
}