Select Code to Download

$hLine = { SBSB_ID => '123456782'
           , First_name => "Ryan"
...
           , WMDS_SEQ_NO22 => 3
           #, .... and so on for each field ...
         };

    foreach my $k (grep { /^WMDS_SEQ_NO\d+$/ } sort keys %$hLine) {
       print $fh "$k=".$hLine->{$k}."\n" 
    }