perl -e '$a{0} = $a{0} || scalar keys %a; print $a{0}'