my ($dbh) = DBI->connect("DBI:ODBC:messagestore", "user", "password", {RaiseError => 1}); #### 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]; #### my (undef, $message_id, $message_date, $message_time, $message_sender_name, $message_to_name, $department_id) = @data;