my %param = $q->Vars();

##</code><code>##

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

foreach (@order, sort grep { !$ordered_param{$_} } keys %param)
{
     print "$_ $param{$_}\n";
}