the script which is wrote by you is not correctly perform the task.The condition is every 3 x 3 matrix satisfies it self and satisfies the 9 x 9 matrix.i don't understand the environment which used by you like 'our' .please suggest the perl books in online