#!/usr/bin/env perl

@napok = qw/hétfő kedd szerda csütörtök péntek szombat vasárnap/;
@hetkoznap = @napok[0, 1, 2, 3, 4];

foreach $elem (@hetkoznap) {
	print $elem . "\n";
}