#!/usr/bin/perl
use strict;
use warnings;
my @number_of_words = (
    { number => 10, name => 'file_a.txt' },
    { number =>  1, name => 'file_b.txt' },
    { number =>  3, name => 'file_c.txt' },
    { number =>  5, name => 'file_d.txt' },
    { number => 10, name => 'file_e.txt' },
);

my $total_number_of_words = 29;

my $select= 3;

my $selected= 0;

while ( $select-- ) {
	my $randomindex= rand $total_number_of_words;
	my $last_index= ( scalar @number_of_words ) - $selected - 1;
	my $i= $last_index+1;
	do {
		$randomindex-= $number_of_words[--$i]->{'number'};
	} while ( $randomindex >= 0 );
	$total_number_of_words-= $number_of_words[$i]->{'number'};
	# print $number_of_words[$i]->{'name'},"\n";
	@number_of_words[$i, $last_index]= @number_of_words[$last_index, $i];
	++$selected;
}

for (my $i= $#number_of_words - $selected; ++$i<=$#number_of_words;) {
	print $number_of_words[$i]->{'name'},"\n";
}