Select Code to Download

my @data;
for my $set (split /#/, $patterns) {
...
    push @data, \%hash;
}

my @data;
for ( split /#/, $patterns ) {
...
    push @data, \%hash;
}