my @list = map BLOCK LIST;

##</code><code>##

my @list;
for (LIST) {
   push @list, do BLOCK;
}

##</code><code>##

    my @files =
      map { "$self->{update_dir}/$_" }
        sort { $a <=> $b }
          grep { /^\d+$/ && $_ <= $id }
            readdir $dir;

##</code><code>##

    my @files;
    for (
        sort { $a <=> $b }
          grep { /^\d+$/ && $_ <= $id }
            readdir $dir
    ) {
        push @files, "$self->{update_dir}/$_";
    }

##</code><code>##

    my @files =
      map { "$self->{update_dir}/$_" }
        sort { $a <=> $b }
          grep { /^\d+$/ && $_ <= $id }
            readdir $dir;

##</code><code>##

    my @temp;
    @temp = readdir $dir;
    @temp = grep { /^\d+$/ && $_ <= $id }    @temp;
    @temp = sort { $a <=> $b }               @temp;
    @temp = map { "$self->{update_dir}/$_" } @temp;
    my @files = @temp;