Select Code to Download

@fields = qw(Resd Edlv); # just a sample
@main_data{curpidm}{@fields} = @data[1,2];