Select Code to Download

my $stmt = 'SELECT projects FROM time_sheet WHERE subscriber_id = ?'; 
+     
my $proj = $dbh->selectall_arrayref($stmt, {Slice => {}}, $subscriber_
+id);   
...
   $proj->[$i]{'users'} = \@users;
   undef @users;
}

print Dumper($proj);
$VAR1 = [
...
            'project_id' => '7599'
          }
        ];

my $AoH_class = [ 
                  { 
...
$AoH_class->[1]{'students'} = \@AoH_algebra;

print Dumper($AoH_class);

$VAR1 = [
          {
...
            'room' => '413'
          }
        ];