#!/usr/bin/perl5.14.1

use DBI;
use Data::Dumper;


$dbh = DBI->connect("DBI:host",
		'name',
		'pw',
		{ RaiseError => 1, AutoCommit => 1 },
);

@tesxt = ('perl','python','pearl', 'pear', 'pink', 'pong');
@array1 = ('fan','friend','fang', 'fun', 'food', 'flow');
@array2 = (21,22,23,14, 15, 16);
@array3 = ('oh','orange','okay','ostrich', 'open', 'osaka'); 
@jumpjump= ($tesxt[0], $tesxt[2], $tesxt[3], 'kit','kat',7);

push (@data, \@tesxt);
push (@data, \@jumpjump);
push (@data, \@array1);
push (@data, \@array2);
push (@data, \@array3);

splice (@jumpjump);
@jumpjump= ($tesxt[0], $tesxt[2], $tesxt[3], 'koo','kaa',7);
push (@data, \@jumpjump);

print Dumper \@data;

$sth = $dbh->prepare("insert into table_test (just, random, field, for, testing, purposes) values (?, ?, ?, ?, ?, ?)");
$dbh->begin_work();

foreach my $row (@data)
{
   $sth->execute(@$row);
}

$dbh->commit();

$dbh->disconnect;

##</code><code>##

$VAR1 = [
          [
            'perl',
            'python',
            'pearl',
            'pear',
            'pink',
            'pong'
          ],
          [
            'perl',
            'pearl',
            'pear',
            'koo',
            'kaa',
            7
          ],
          [
            'fan',
            'friend',
            'fang',
            'fun',
            'food',
            'flow'
          ],
          [
            21,
            22,
            23,
            14,
            15,
            16
          ],
          [
            'oh',
            'orange',
            'okay',
            'ostrich',
            'open',
            'osaka'
          ],
          $VAR1->[1]
        ];