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

##</code><code>##

foreach my $pair (@pairs){