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

open (LIST, '>', "list.rnd") or die "Unable to open list.rnd : $!";

for ( 1 .. 10_000 ) {
    my $length = int(rand 240) + 10;
    my $string = "";
    $string .= ('a' .. 'z')[ rand 26] while length $string < $length;
    print LIST "$string\n";
}