till 1 : 50 st ,Perl