sub ST(&@){
        my $metric=shift;
        map {$_->[0]}
        sort {$a->[1] cmp $b->[1]}
        map {[$_,&{$metric}]} @_
}
@sorted_by_ip_date_time = ST{
  my @d=split'/',$_->[3];
  $d[1] = ${{'Jun'=>6,'Jul'=>7}}{$d[1]};
  sprintf"%4d"x10,
    (split/\./,$_->[0]),
    @d[2,1,0],
    (split/:/,$_->[4])
}@logentry;
[download]