@veg=("71", "111", "32", "86", "101", "103", "101", "116", "97", "114", "105", "97", "110", "100", "101", "13", "152", "98", "95", "90", "89", "97", "96", "70", "12", "42", "34", "45", "39", "99", "10", "165454545544", "55", "66", "77", "88", "99", "58", "11", "56", "49", "56", "63", "70", "77", "84", "91", "98", "05", "12", "15425454555", "54535335"); @eta= ("Goze afyuz ei","o r", " a", "Ve fig da zji ", "eg zeg fe", "gz er dz ", "e ta ef", "tz ek rd az" ,"ardkgjrg ","rdsfh hbf" ,"i sdf he ","a ef ds gjn","nej fe h", " a ","! ", "!" ); $g++; $i=0;foreach$v(@veg){$i++;$wo=chr($v);if($i<14){print$wo;}}print"\n";foreach$e(@eta){print substr($e,0,1);}