#!/usr/local/bin/perl -w

my $temp = sajat_fuggveny();
print "A temp: @$temp.\n";

sub sajat_fuggveny {
	my $entry = shift;
	my ($val1, $val2, $val3) = qw(első második harmadik);
	my $ret = [$val1, $val2, $val3];
	return $ret;
}