my $tbl_ary_ref = $query1->fetchall_arrayref;
warn "WHOOPS ", $query1->err if $query1->err ;

for my $data ( @{ $tbl_ary_ref  } ){
    my $cur_company = $$data[0];
    $cur_company = $data->[0];
...
}

for my $data ( @{ $tbl_ary_ref  } ){
    my $cur_company = $$data[0];
    $cur_company = $data->[0];
...
}


for my $data ( @{ $tbl_ary_ref  } ){
    my $cur_company = $$data[0];
    $cur_company = $data->[0];
...
}