anagrams.pl

anagrams.PL

#!/usr/bin/perl 

use strict;
use warnings;
use 5.10.0;

# attempt to determine if two strings are anagrams

my (@first) = split //, 'brennen';
my (@second) = split //, 'bernnen';

my (%frequency1, %frequency2);

for (@first) { $frequency1{$_}++; }
for (@second) { $frequency2{$_}++; }

my $differ = 0;
foreach my $key (keys %frequency1, keys %frequency2) {
  $differ++ if $frequency2{$key} != $frequency1{$key};
}

if ($differ) {
  say "Not an anagram."
} else {
  say "Anagram."
}