my @list_accounts = map { {account => $_->name,id=>$_->account_id} }@accounts;
  foreach my $list_account (@list_accounts) {
   $$list_account{account_selected} =
                ($$list_account{id} == $contacts->account_id) ? 1:0;
  }