<>;$e='$h{$_}+0,$"for<>=~/\d+/g';eval"++$e;print$e"