@order=(field1,field2,field2,..);
%lable={
         field1=>"Name of Field 1",
         field2=>"Name of Field 2",
..
);

##</code><code>##

--
#!/usr/bin/perl
for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/}