for my $cur_res (@result) {
  print join('-', @$cur_res). "\n";
}