#!/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";
 }