my @files = glob("/usr/bin/*");
my $range = $#files; #scalar(@files)-1;

while (1) {
    my $random = int(rand($range));

##</code><code>##

my @files = glob("/usr/bin/*");

while (1) {
    my $random = int(rand(@files));