Select Code to Download

use strict;
use warnings;
...
print "Required sources : \n", Dumper \%required_sources;
print "\n\n";
print "Remaining keys: \n", Dumper \%remaining_keys;

$ perl  key_source.pl
Remaining keys (before the while loop):
...
Remaining keys:
$VAR1 = {};