Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...
  map( [ $_, $_->[4] ], @$ary2 );

use Data::Dump 'dd'; dd \@sorted;

Select or download this

[
  [2, 2, 2, 2, "2018-01-25", 2, "src2", 2, 2, 2, 2],
...
  [1, 1, 1, 1, 1, "2018-04-11", "src1", 1, 1, 1, 1],
  [2, 2, 2, 2, "2018-04-22", 2, "src2", 2, 2, 2, 2],
]