# i dont want to write this out by hand, but rather auto
# create it via my Database Recordset that i fetched with
# $sth->fetchrow_array()
@data = (['Siemens','Nokia','Sony','Ericcson','Samsung'],
         [45000,12000,11000,18000,8000]);

print Dumper(@data);

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