$'%$_ or@h{$'/$_.$_,$_.$'/$_}=0for<>=~//..sqrt$';print~~keys%h