Select Code to Download

$query=$dbh->prepare($SQLstatement);
 $query->execute();
...
   $storedProfile{user_id}            = $row->{user_id};
   # copy over each item from the result row
 $query->finish();

%storedProfile = %row;

...
for (@keys){
 $storedProfile($key) = $row($key);
}