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