my $ref = $dbh->selectall_arrayref('select * from tab');
# mache den speicher frei
@{$ref} = (); # so???
undef(@{$ref}); # so???
# weiter im programm