What is the error message you are getting? I think you'll get a lot of clarity if you swap your connector to:

$dbh = DBI->connect('DBI:SQLite:vodafone.db',
                            {
                                PrintError  => 0,
                                RaiseError  => 1,
                                AutoCommit  => 0,
                            },
                    );
[download]

since it will report what is going wrong. I expect it's because a database table has a defined number of columns in it, and you don't have a defined number of columns in your dataset.

As a side note, you'll likely get more traction in DB interaction if you prepare a query using placeholders. At the least, what you've written is subject to all sorts of escaping issues.

Update: Your issue is that you have $array5[$_] = "'\$row->[$_]'"; instead of a $array5[$_] = "'$row->[$_]'"; after you know your values, and are thus aren't interpolating your values. Again, placeholders would have prevented this issue.

my $sql = do {
    my $count = @$columns;
    my $qs = join ',', ('?') x $count;
    <<EOSQL
INSERT INTO VoucherMRPDataTable_Frt_TariffModel
VALUES ($qs)
EOSQL
};

my $query = $dbh->prepare($sql);
while (my $row = $csv->getline($FH) ) {
    $query->execute(@$row);
}
[download]