Select Code to Download

use warnings;
use strict;
...
  print "occurrences for $uid above $threshold \n";
  print @occurrences;
  }