print F $row_ref->{$_} for sort { $a <=> $b } keys %$row_ref; #### print F $row_ref->{$_} for qw(userid giftid);