Select Code to Download

my @order = qw[ firstname lastname age shoesize ];
my %ordered_param = map { $_ => 1 } @order;

...
{
     print "$_ $param{$_}\n";
}