Select Code to Download

use strict;
use warnings;
...
    $dup_rec_of{ $critter }++ if $rec_of{ $critter }++;
}
printf "%s\n", join ', ', sort keys %dup_rec_of;

camel, llama