eval'$_="$a $_ ".sqrt@A+$_**2,/\./||print$_,$/for@A=1..++$a**2;'x100