Select Code to Download

while (<PFILE>) {
    chomp;
...
    my $key = shift @tags;
      $patterns{$key} = \@tags; ## <<< HERE
}

      $patterns{$key} = "@tags";