if ($_[0]) { my $user_index = $_[0]; $user = $xdccqueue[$user_index - 1]{user}; } else { $user = $xdccqueue[0]{user}; #IRC::print("$CX Checking for$CB $user$CX from queue... $CO\n"); } #### $user = $xdccqueue[(($_[0] || 1) - 1)]{user}; #### $user = $xdccqueue[$_[0]]{user}; #### (qw(foo bar))[$_[0]]