OUTER1: while (<STDIN>) {
   chomp;
   for $to (%rates) {
      last OUTER1 if $to eq $_;
   }
   print "I can't find a conversion for '$_'!\n";
}