Select Code to Download

while (my $row = $sth->fetch()){
    push @{ $data[0] }, $row[0];
...
}

print Dumper(@data);

$VAR1 = [
  undef,
...
  undef,
  undef
];

while (my @row = $sth->fetchrow_array()){
    push @{$data[0]}, $row[0];
    push @{$data[1]}, $row[1];
}
print Dumper(@data);

$VAR1 = [
  'Siemens',
...
  '11000',
  '8000'
];