while(my @list = `ls -t`) {
    chomp @list;
    for my $file (@list) {
        open my $fh, '<', $file or log_it_somehow;
        execute_json(<$fh>);
        close $fh;
        unlink $file;
    }
}