#!/usr/bin/perl -w

print "Hello world!\n"
$mesiace = ('januar' => 1, 'februar' => 2);
print "januar je $mesiace{'januar'} mesiac";