my @elements = split /;/, $data;
my %rowvalues;
foreach my $element (@elements) {
    my ($key, $value) = split /=/, $element;
    $rowvalues{$key} = $value;
}
foreach my $key (keys %info) {
   if(exists $rowvalue{$key}) {
       push @{$info{$key}}, $rowvalue{$key};
   }
   else {
       push @{$info{$key}}, 'NA';
   }
}