l09.pl

   1 #!/usr/bin/perl -w
   2 use POSIX;
   3
   4 %pipirka= ('Россия' => 13.21, 'Украина' => 13.97,
   5            'Эстония' => 13.78, 'Финляндия' => 13.78,
   6            'Монголия' => 12.77);
   7
   8 print "Ты откуда, братишка?\n";
   9 $country= <STDIN>;
  10 chomp $country;
  11
  12 print "В этой стране " . ceil($pipirka{$country})
  13             . "см - это роскошь!\n";