$all=qx/ls \/export\/home\/*_01day
  @all1=split("\n",$all);
for(@all1){push(@all2,(split(' ',$_)));}
  @all3 = reverse(@all2);
@all4 = (@all3[0..29]);