Then your first step should be to identify the "one print" and split it up into two separate print statements. For example,

print %s
[download]

could be changed into a loop over the hash keys:

for my $key (keys %s) {
    print "Key: %key, Value: $s{ $key }\n";
};
[download]