Select Code to Download

# declare our vars
my (%codes, @array_codes);
...
ba bababab aaba abab babaa baaba ba baaba. 
aaba ba bababab ba bababab abab ba aaba abab baaba abab. 
ba abab abab ba.

sub count_codes {
  my $file = shift;
...

# call sub
count_codes("/path/to/myfile.txt");

foreach $code_key (@array_codes) {
  $code_key =~ s/[.]//g;
  $codes{$code_key}++;
}