Select Code to Download

my %count;
while (<FILE>) {
...
    # my( $src, $sport ) = split $;, $pair;
}

my @fields = ( 9, 12 );

...
    # my @vec = split $;;
}