Select Code to Download

sub join_ids {
  return = $_[0] < $_[1] ? "$_[0];$_[1]" : "$_[1];$_[0]";
}

# assume my %obs for holding data;

...
        $obj{$key} = pack( "LL", $seen, $voted );
    }
}