Select Code to Download

print F $row_ref->{$_} for sort { $a <=> $b } keys %$row_ref;

print F $row_ref->{$_} for qw(userid giftid);