>perl -wMstrict -le
"my $hr = { 'Node' => 'TestServer' };
 my ($k) = each %$hr;
 print qq{'$k'};
 ;;
 pk($hr);
 ;;
 sub pk { my ($hr) = @_;  my ($k) = each %$hr;  print qq{'$k'} }
"
'Node'
Use of uninitialized value $k in concatenation (.) or string at -e line 1.
''