#!/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