sub anagram_hash {
    my $result = 0;
    my $s      = shift;
    my $length = length($s);
    if ( $s =~ /[a-zA-Z]+/ ) {
        for ( my $i = 0 ; $i < $length ; $i++ ) {
            my $char = substr( $s, $i, 1 );
            my $temp = ord($char);
            $result += $temp**5;
        }
    } elsif ( $s =~ /^[\d]+$/ ) {
        my $temp = int($s);
        $result += $temp**5;
    } else {
        die "Invalid parameter passed to method 'anagram_hash'\nExpected: String or Number\nPassed: $s";
    }
    return $result;
}