my @letters = qw(abc cba cab bab blab);
for (@letters) {
	if(join('', sort split //, $_) eq "abc") {print "$_ matched\n"}
	else {print "$_ didn't match\n"}
}