$dbh->do("SET autocommit = 0");
....
$dbh->do("COMMIT");

##</code><code>##

map
{
   my($keys,$value)=split /\s*:\s*/,$_;
   $keys=~ s/\s//g;
   $info{$keys} = $value;
}split /\n/, $record;

#Don't use map when you mean foreach (or for)
foreach (split /\n/, $record)
{
  ....
}