Or perhaps

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

BTW, im sure you know this already but you could convert all of the undefs to a given constant quite easily

my @values=map { exists $hash{$_} ? $hash{$_} : $constant } @keys_need
+ed;
[download]

You might want to change the exists() to a defined() if you dont want _any_ undefs getting through.

:-)

Yves / DeMerphq
--
This space for rent.