Select Code to Download

  if ($_[0]) {
    my $user_index = $_[0];
...
    #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]]