Select Code to Download

my $text = "(a + 13) * (b - 10 ) / c";

...
my %hash;
map { $hash{$_}++ } @vars;
my @unique_vars = keys %hash;