Select Code to Download

if( $line =~ /$keyword/ ) {
    $Counter{ $keyword } ++;
    ...

# Initialize the counter
my %Counter = map { $_, [] } @keywords;
...
    push @{ $Counter{ $keyword } }, $.;
    ...
    }