perl -wle '@a=(1..2_000_000); @b=sort map {scalar gmtime $_} @a; print "@b[0,1,2,1_999_997,1_999_998,1_999_999]"'