Select Code to Download

my %histogram;
    $histogram{$_}++ for @list;

foreach (@data1) {
      $hist{$_}++ for $_;
...
my @uni = keys %hist;

print "@uni\n";

#!/usr/bin/perl -w

...
my @uni = keys %hist;

print "@uni\n";