@value_names = qw(all the values that my script uses in order);
foreach $name (@value_names) {
    print "$name:\t$param{$name}";
}