fahr to celsius in perl(while)