Ти пък. Човека или нещо грешно е копнал или просто се лигави.
То е ясно че това дето пита е глупост и безсмислица и не става, обаче
$creten=$oligofren=$bastun=0 и
($creten,$oligofren,$bastun)=0
си е напълно вярно, както и това че в Perl всички променливи са тип UNKNOWN за разлика от C където всичко трябва да се дефинира предварително и сакън да не се отдели някой байт повече за променлива и малко повече редове в компилатора за определяне на типа на променливите.