Moon, John wrote:
Does anyone see anything wrong with the following:-labels=> {map ({$$_[0]=>$$[1]>0?"$$_[0] *":"$$_[0] _"} @$servers)},
^^^^^ $$[1] is wrong. It should be $$_[1] or better $_->[1]. John -- Perl isn't a toolbox, but a small machine shop where you can special-order certain sorts of tools at low cost and in short order. -- Larry Wall -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/