>perl -wMstrict -le
"my $hr = { 'Node' => 'TestServer' };
 my ($k) = each %$hr;
 my $ignore_this = keys %$hr;
 print qq{'$k'};
 ;;
 pk($hr);
 ;;
 sub pk { my ($hr) = @_;  my ($k) = each %$hr;  print qq{'$k'} }
"
'Node'
'Node'