Select Code to Download

my ($x,$y,$z);
$x='a';
$y='b';
$z='c';

Input          Output.
$x,$y,$x,$y => 2
$x,$y,$z    => 0
$x,$x,$x    => 1