use strict;
use warnings;

my $good = [qw( allo mallo malo)];
my $bad  = [qw( tillo sillo sallo)];

foreach my $list ($good, $bad){
    print "got list [@{$list}]\n";
    my $has_unique;
    foreach my $word(@$list){
          print "analizing word [$word]\n";
          my %chars;
          foreach my $char ($word =~ /./g){
            print "\tGot char [$char]\n";
            $chars{$char}+= 1;
          }
          print "\tchars count is:\n";
          print map{"\t$_ = $chars{$_} "}keys %chars;
          print "\n";
          if (scalar keys %chars == length $word){
               print "\t$word has no repeated letters (keys of \%chars are equal to the length of \$word)\n";
              $has_unique++;
          }
          print "\n";
    }
    print "I print the whole list: ",(join ' ', @$list),"\n\n" if $has_unique;
}

# output

got list [allo mallo malo]
analizing word [allo]
        Got char [a]
        Got char [l]
        Got char [l]
        Got char [o]
        chars count is:
        l = 2   a = 1   o = 1

analizing word [mallo]
        Got char [m]
        Got char [a]
        Got char [l]
        Got char [l]
        Got char [o]
        chars count is:
        l = 2   a = 1   m = 1   o = 1

analizing word [malo]
        Got char [m]
        Got char [a]
        Got char [l]
        Got char [o]
        chars count is:
        l = 1   a = 1   m = 1   o = 1
        malo has no repeated letters (keys of %chars are equal to the length of $word)

I print the whole list: allo mallo malo

...