Select Code to Download

my $list = $db->prepare("SELECT * FROM `table`");
$list->execute();
...
foreach (@array) {
    print @{ $_ },"\n";    
}

my @array;
while ( my @arr = $list->fetchrow_array() ) {
...
foreach (@array) {
         print @{ $_ },"\n";    
}