#!/usr/bin/perl

 my @mesice = ('leden', '·nor', 'b°ezen', 'duben', 'kv∞ten', 'Φerven',
               'Φervenec', 'srpen', 'zß°φ', '°φjen', 'listopad', 'prosinec');

 my %angl = ('leden' => 'january', '·nor' => 'february', 'b°ezen' => 'march',
	     'duben' => 'april', 'kv∞ten' => 'may', 'Φerven' => 'june',
	     'Φervence => 'july', 'srpen' => 'august', 'zß°φ' => 'september',
	     '°φjen' => 'october', 'listopad' => 'november', 'prosinec => 'december');

 print "V²pis 12 m∞sic∙ v roku \n\n";

 foreach $mesic ( @mesice ) {
  print $mesic, " ", $angl{$mesic}, "\n";
 }