for my $val (@request_sorted)
{
  print FHR $val->[0].$val->[1]."\n";
}