Select Code to Download

my $l;        # all these three variables should probably better decla
+red within the 
my @vals;     # while loop. Only %pairs probably need to be declared b
+efore the while
...
        delete $pairs{$vals[1]};
    }
}

use strict;
use warnings;