Select Code to Download

 
$_{foo}; #$_ containts a hashref.

use strict;
use warnings;
...
push @results, $_{user_id} 
     while ($_ = $sth->fetchrow_hashref());
print Dumper(\@results);

$VAR1 = [
          undef,
          undef,
          undef
        ];