# If my datasets contain
        # @1 = 1,2,3,4,5
        # @2 = 2,3,6,7,8,8,8,9,10
        # @3 = 5,6,2,3
        #  
        # the result should be: 2,3
        #

	my %intersection;
	my @result;
	foreach my $dataArray(@AllArraysIHave) {
		my %lookuptable;
		foreach(@{$dataArray}) {
			if (!$lookuptable{$_}) {
				$lookuptable{$_} = 1;
				$intersection{$_}++; 
			}
		}
	}
	my $amnt = scalar(@AllArraysIHave);
	foreach my $key (keys %intersection) {
		if ($intersection{$key} == $amnt) {
			push @result, $key;
		} 
	}

	return \@result;