#!/usr/bin/perl -w
use strict;
use Data::Dumper;
use Data::Dump qw(pp);

######  some data to work with
###### 
                #id     #name
my @clients = ( [123 , 'clientA'], #using this instead of SQL query
                [346 , 'clientB'],
                [789 , 'clientC']);
               
               
                     #id  #integer
my @int_numbers =  ( #[123, 33]   #using this instead of SQL query
                      [346 , 1],
                      [789 , 2] );  
                      
######
######
                
my @Table2D;  #using an Array of Array 
                           
foreach my $row_ref  (@clients)
{
   my ($id, $name) = @$row_ref;
   
   #you get this from the first query
   
   push @Table2D, [$id,$name];
}

print pp (\@Table2D), "\n";
# now the 2D array is started...
#
#[[123, "clientA"], [346, "clientB"], [789, "clientC"]]

#now expand each row by one column
foreach my $row_ref  (@Table2D)
{
   push @$row_ref, 0;  
}

print pp (\@Table2D), "\n";
#[[123, "clientA", 0], [346, "clientB", 0], [789, "clientC", 0]]

#now double loop ...
#if we use a Hash of Array, we don't need this...
#of course this is super inefficient 

foreach my $query_ref (@int_numbers)
{
   # you get these from second query..
   # 
   my ($id2, $integer_number) = @$query_ref;
   
   foreach my $row_ref (@Table2D)
   {
      my ($id_in_table) = @$row_ref;  #just the first column!
      
      if ($id_in_table == $id2)  #searching table for the id
      {                          #in query 2.
         $row_ref->[-1] = $integer_number;
         last;                     #found... stop looking
      } 
   }
}

print pp (\@Table2D), "\n";
# see now clientB and clientC got their last column updated
# but clientA did not!
#[[123, "clientA", 0], [346, "clientB", 1], [789, "clientC", 2]]