Print "Enter a temperature.\n";
chomp ($temp = <STDIN>);
while ($temp != 'q')
 {
   push @temp,$temp;
   print "Enter another temperature.\n";
   chomp ($temp=<STDIN>);
 }
print "Goobye see you next time.\n";