sub is_rotatable{
#234567890123456789012345678901234567
$_=$_[0];y/2569347/5296/;pop==reverse
}