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

##</code><code>##

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