@data = (['Siemens','Nokia','Sony','Ericcson','Samsung'],
         [45000,12000,11000,18000,8000]);

##</code><code>##

my $sth = $dbh->prepare("SELECT kunde,umsatz FROM db_kundenumsatz");

my @data;

while (@data = $sth->fetchrow_array()){
#reading the data into an array of arrays just like the above
}


##</code><code>##


# 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
];