my $sth = $dbh->prepare("SELECT kunde,umsatz FROM db_kundenumsatz"); my (@kunde, @umsatz,$kunde, $umsatz); while (($kunde, $umsatz) = $sth->fetchrow_array()){ push @kunde $kunde; push @umsatz, $umsatz; } my @data=\@kunde,\@umsatz);