Select Code to Download

my @foo;
my %bar;
while ($sth->fetch())
...
     @bar{'name','age'} = ($name, $age);
     push (@foo, \%bar);
}