#!/usr/bin/env perl

my @zsak = ();

push(@zsak, "szilva");
push(@zsak, "körte");
push(@zsak, "alma");

# A tömb elejére:
unshift(@zsak, "barack");

# Utolsó elem törlése
pop(@zsak);

# Az első elem törlése:
shift(@zsak);

print "Tömb mérete: " . scalar @zsak . "\n";
foreach $elem (@zsak) {
	print $elem . "\n";
}