hoge.pl

use strict;
use feature 'say';

sub is_anagram {
    my ($s1, $s2) = @_;

    my %chars1;
    my %chars2;
    for my $c (split //, $s1) {
        $chars1{$c}++;
    }

    for my $c (split //, $s2) {
        if (not exists $chars1{$c}) {
            return # early exit
        }
        $chars2{$c}++;
    }

    for my $k (keys %chars1) {
        if (not exists $chars2{$k}) {
            return
        }
        if ($chars2{$k} != $chars1{$k}) {
            return
        }
    }
    return 1
}

sub check_and_report {
    my($s1, $s2) = @_;
    say "$s1 and $s2 -> ", is_anagram($s1, $s2) ? "is anagram" : "is NOT anagram";
}

check_and_report("eros", "rose");
check_and_report("eros", "roses");