if (defined (@array[9..13]) and @array[9..13] ne "") { &my_sub (); } #### @array = ( name, address, age, date1, date2, date3, date4, date5); Take date1 .. date5; on each encountered date run spcial sub to process each date input(which you dont woory about).