while (my $row = $sth->fetchrow_hashref) {
 push(@profiles,$row);
}

##</code><code>##

foreach (@profiles) {
 print "$_->{user_id}\n";
}

##</code><code>##

@keys = keys %row;
for (@keys){

##</code><code>##

foreach (keys %row) {