Select Code to Download

use strict;
use warnings;
...
my %unique = map { $_ => 1 } @vars;
                                                                      
+          
printf "Unique variables:  %s\n", join(',',keys %unique);