sub vrat_duplicity {
    my($r_p1, $r_p2) = @_;
    my %v_prvnim;
    @v_prvnim{@$r_p1} = ();
    return grep exists $v_prvnim{$_}, @$r_p2;
}

sub spolecne {
	my @seznamy = grep ref eq 'ARRAY', @_;
	return () unless @seznamy;
	my ($nalezene, %spolecne) = shift @seznamy;
	foreach (@seznamy) {
		@spolecne{@$nalezene} = ();
		$nalezene = [grep exists $spolecne{$_}, @$_];
		%spolecne = ();
	}
	return @$nalezene;
}