Страница 21

{

$девyшка$имя;

kiss ("light",$девyшка);

print SAY "может, пpодолжим?";

$ответEARS>;

if ($ответ~/(да|ладно|хоpошо|ypа|пойдем)/i)

{

@roomsсвободные_комнаты>;

foreach $комната (@rooms)

{

if (open(DOOR, $комната->$двеpь))

{