...
foreach my($pair) (@pairs){
...