$statement="SELECT spalte1,spalte2,spalte3,spalte4,spalte5 FROM table"; ## dann connecten my $dbh=DBI->connect... my $ary_ref = $dbh->selectall_arrayref($statement); open(FILE1,file1); open(FILE2,file2); foreach my $val(@{$ary_ref}) { print FILE1 $val->[0].' '.$val->[1].' '.$val->[2].'\n'; print FILE2 $val->[3].' '.$val->[4].'\n'; } close(FILE1); close(FILE2);