one way is to use:

$allrows = $handle->fetchall_arrayref();

my($i, $j);
for $i ( 0 .. $#{$allrows} ) {
    for $j ( 0 .. $#{$allrows->[$i]} ) {
        print $allrows->[$i][$j];
    }
print FILE "\n";
}
[download]