perl Algorithm-C3