sub is_perfect_square { int( $_[0] ** .5 ) ** 2 == $_[0] }