@input = (5, 10, 20, 25, 30, 40, 45, 50, 55, 65, 75, 80, 90); @out1 = grep /5$/, @input; @out2 = grep /0$/, @input;