#!/usr/bin/perl

use strict;
use warnings;

sub funkce (\[%@]@) {
	my $r = shift;
	if (ref $r eq "ARRAY") {
		@$r = (@$r, @_);
	} else {
		%$r = (%$r, @_);
	}
}

my @a = (2,3,4);
my %b = (2=>3);

funkce @a, 5, 6, 7;
funkce %b, 4=>5, 6=>7;

print @a;
print %b;