@sorted = map {join'/',(split/-/)[1,2,0]} sort map {join'-',(split'/')[2,0,1]} qw(12/31/2000 12/26/2000 01/01/2001);