foreach my $rh (@r) {
  print ("blah blah");