use Algorithm::Combinatorics 'combinations';
my @browsers = ('firefox', 'chrome', 'internet explorer');
my $iter = combinations(\@browsers,2);
while (my $c = $iter->next) {
	print "Compare $$c[0] with $$c[1]\n";
}

__END__

Compare firefox with chrome
Compare firefox with internet explorer
Compare chrome with internet explorer