sub write_columns {
        my $columns = shift;
        if($columns->{$fields[0]}) {
          $csv->print(\*STDOUT, [ map { $columns->{$_} } @fields ] );
        }
}