[- $args = shift @param; my @data = &EMU::get_addrs_array(); @addrnums = @{ $data[0] }; %addrdata = %{ $data[1] }; $theme = $args->{theme}; foreach $a (@addrnums) { $nick = $addrdata{"n$a"}; push(@nicknames, $nick); } -]