#!/usr/bin/perl   


$n = 20; 			# нужное количество строк
$txt_do = 'двести килограмм';	# текст до рандомного слова
$txt_posle = 'сняли';		# текст после рандомного слова


open(OUT, "> out.txt");

for($i = 1; $i <= $n; $i++)
     {
	$rndword = join('', map(('а','б','в','г','д','е','ё','ж','з','и','й','к','л','м','н','о','п','р','с','т','у','ф','х','ц','ч','ш','щ','ь','ы','ъ','э','ю','я')[rand(33)], (1..7)));
	print OUT $txt_do.' '.$rndword.' '.$txt_posle."\n";
     }

close(OUT);

двести килограмм фцддонм сняли
двести килограмм мчемямц сняли
двести килограмм цьэфэтю сняли
двести килограмм иъашывс сняли
двести килограмм изщюциж сняли
двести килограмм вшдтькъ сняли
двести килограмм зуёцпфж сняли
двести килограмм юмьцёць сняли
двести килограмм сэёсорй сняли
двести килограмм бгхрчьх сняли
двести килограмм нвжншэв сняли
двести килограмм епюялди сняли
двести килограмм гысъпщг сняли
двести килограмм нзлшэжю сняли
двести килограмм ъчёлвъс сняли
двести килограмм нжздеыл сняли
двести килограмм нлвлъеъ сняли
двести килограмм геяуалю сняли
двести килограмм еъёъйоы сняли
двести килограмм шиийзюэ сняли