You might be looking for this (untested):

for my $i ( 0 .. $#ids ){
  if ( defined $hash{$ids[$i]} ){
    print "$ids[$i] => ", $hash{$ids[$i]}, " => ", $extra[$i], "\n";
  } else {
    print $ids[$i],"\t ",$extra[$i],"\n";
  }
}
[download]