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

##</code><code>##

for (@ids) {
    my ($id,$extra)=@$_;
    print exists $hash{$id} ?
      "$id => $hash{$id} => $extra\n" :
      "$id\t$extra\n";
}