while (<PFILE>) {
	chomp;
	next unless $_;
	my @tags = split /; |:/;
	my $key = shift @tags;
      $patterns{$key} = \@tags; ## <<< HERE
}

##</code><code>##

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