sub is_rotatable{
#23456789 123456789 123456789 123456789 123456789 1234
(local$_=$_[0])=~y/0125689347/0152968/;reverse eq$_[0]
}