use strict;  použít varování;  my $ &#345;ádek = "";  my $ inarray = 0;  while (<DATA>) {žvýkat;  if (/ ^ array | ^ unassigned /) {print "$ &#345;ádek \ n", pokud $ inarray;  $ &#344;ádek = $ _;  $ Inarray = m / ^ pole /;  další;  } Výjimkou p&#345;ípad&#367;, kdy $ inarray;  $ &#344;ádek = "$ _.";  } Print "$ &#345;ádek \ n", pokud $ inarray;  __DATA__ ....