foreach my $pair (@pairs){