Select Code to Download

use strict;
use warnings;
...
    --$d{$_} foreach @$b;
    return map { ($_) x abs $d{$_} } keys %d;
}