Select Code to Download

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

my ($message_id) = $data[1];
my ($message_date) = $data[2];
...
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;