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

print Dumper(@data);

##</code><code>##

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

##</code><code>##

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

##</code><code>##

$VAR1 = [
  'Siemens',
  'Ericcson',
  'Nokia',
  'Sony',
  'Samsung'
];
$VAR2 = [
  '45000',
  '18000',
  '12000',
  '11000',
  '8000'
];