print for map { $$_[0] } sort { lc $a->{name} cmp lc $b->{name} } grep { ref $_ } map { [$_, dblookup($_)] } unless grep { /--ignorestdin/ } @ARGV;