less time complexity

I do not understand what you mean by that. At this point, I think you should show what Perl code you have tried, what output you expect, and your actual output. Please show several examples.