Select Code to Download

for my $i (0 .. @F-1) {

    @F1 = @F if !@F1;

while (<DATA>) {
    chomp;
    my @F = split '&';

#!/usr/bin/env perl -w
use v5.014;
...
a=1&b=1&c=1&d=2&e=&f=3
a=1&b=2&c=3&d=2&e=&f=4
a=1&b=2&c=5&d=1&e=&f=5