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