my ($dbh) = DBI->connect("DBI:ODBC:messagestore", "user", "password", {RaiseError => 1});

##</code><code>##

my ($message_id) = $data[1];
my ($message_date) = $data[2];
my ($message_time) = $data[3];
my ($message_sender_name) = $data[4];
my ($message_to_name) = $data[5];
my ($department_id) = $data[6];

##</code><code>##

my (undef, $message_id, $message_date, $message_time, $message_sender_name, $message_to_name, $department_id) = @data;