Help for this page
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 ], );
www.com | www.net | www.org
No recent polls found