@orderlist=qw(1.tst 2 3 4.tst);
@orderlist=grep {s#\.tst$#\.test#} @orderlist;
print @orderlist;
#prints 1.test 4.test