use List::Compare;

my ($str1, $str2) = ("ABCDE", "BCDEO");

my @list1 = split //, $str1;
my @list2 = split //, $str2;
my @unique = List::Compare->new(\@list1, \@list2)
                          ->get_symmetric_difference;

say "Unique letters: @unique";