print join("<BR>",@array)."<BR>";

##</code><code>##

my @values=map { exists $hash{$_} ? $hash{$_} : $constant } @keys_needed;