print $konso1, $konso2, $/;