$"=", ";print"[@{[grep$a[sqrt]++,2..99]}]"