Help for this page
print join("<BR>",@array)."<BR>";
my @values=map { exists $hash{$_} ? $hash{$_} : $constant } @keys_need +ed;