if ($key =~ m/(node[0-9]*)/) { 
  print "You entered " .$1. ":" . $ref->{$1}. "\n";
}