for (keys %probes) {
    print "$target_name :\n",  
          join( "\n", @{$probes{$_}} ),
          "\n";
}