<>=~$";$%=$'; map{ $x=0;map$x+=$_,glob;print$x,$/ }($".<>)=~/(?: \d*?[13579]){$%,}/g