#!/usr/bin/perl

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

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

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

 mφsto foreach lze pou₧φt:

 for (@mesice) { print; print "\n"; }

# tzv. pou₧itφ implicitnφ prom∞nnΘ - pozd∞ji