for$f(2..44){$s[$f*$_]=1for 2..999}map{print"$_,",$_+2,$/if!$s[$_]*!$s[$_+2]}3..1997