in reply to Initialisation of variables
$_ = 1 for my ($x, $y, $z); [download]
!! Perfekt Solution !!