#!/usr/bin/perl

use strict;
use warnings;

sub funkce ($) {
	return $_[0];
}

my @a = (2,3,4);

print funkce 2, 3;

print funkce @a;

print funkce @a, @a;