#!/usr/bin/perl
use strict;
use warnings;

# A szubrutin prototípusa:
sub get_two_arrays();

# Két változóban kapjuk az eredményt
my (@elso, @masodik) = leker_ket_tomb();

print "Első: @elso\n";
print "Második: @masodik\n";

sub leker_ket_tomb() {
	my @tomb1 = ("a", "b", "c", "d", "e");
	my @tomb2 = (1, 2, 3, 4, 5);
	return (@tomb1, @tomb2);
}