# Sort list and remove first two elements
(undef,undef, my @sorted_tables) = sort { $a cmp $b } @table_list;

write REPORT_CSV while $table_name = shift @sorted_tables;