Mega Code Archive

 

Categories / Perl / Language Basics

 

Declare three variables in one statement

$x = $y = $z = 1; print join (", ", $x, $y, $z);