for (0..$#ids) {
    my $id=$ids[$_];
    print exists $hash{$id} ?
      "$id => $hash{$id} => $extra[$_]\n" :
      "$id\t$extra[$_]\n";
}