my $csv = Text::xSV->new(sep=>"\t" );
    $csv->open_file("xxxxx.csv");
    $csv->read_header();

    # Make the headers case insensitive
    foreach my $field ($csv->get_fields) {
        if (lc($field) ne $field) {
            $csv->alias($field, lc($field));
        }
    }

    while( $csv->get_row() )
    {
       # save to a db
    }