Select Code to Download

my ($string, $int) = (split(/\;/, $dat));

my @elements = split /;/, $data;
my %rowvalues;
...
       push @{$info{$key}}, 'NA';
   }
}