my %newSource = %$source; # dereference it all at once
foreach my $node(keys (%newSource)) { # note no %$
   #...
   $newSource{$node}; # already dereferenced.