Select Code to Download

use List::Util qw/ first /;

...
$count{$_}-- for split /,/, $str2;

my $different = defined first { $_ } values %count;

require Test::More;
my $equal = Test::More::eq_array(
    [ split ',', $str1 ],
    [ split ',', $str2 ],
);