# Collect values
        while( @db_row = $sth->fetchrow_array())
        {
            $data_rec = [$db_row[0],
                         $db_row[1],
                         $db_row[2],
                         $db_row[3],
                         $db_row[4],
                         $db_row[5],
                         $db_row[6],
                         $db_row[7],
                         $db_row[8]
                        ];

            # Add to list
            push(@my_arr, $data_rec);
        }

Table def (sanitised):

A int(4) unsigned
B bigint(20) unsigned 
C char(2)
D int(10) unsigned 
E int(10) unsigned 
F char(4) 
G tinyint(2) unsigned 
H int(10) unsigned 
I tinyint(2) 

Num rows: 7022790