Select Code to Download

selectall_arrayref($sql,{ Slice => {} });

my $rows = $DBH->selectall_arrayref($sql,{ Slice=>{} });

...
      # add key/value for Pi to every row. 
     $_->{pi}   = 3.14;
}