Select Code to Download

my @list = map BLOCK LIST;

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

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

    my @files;
    for (
...
    ) {
        push @files, "$self->{update_dir}/$_";
    }

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

    my @temp;
    @temp = readdir $dir;
...
    @temp = sort { $a <=> $b }               @temp;
    @temp = map { "$self->{update_dir}/$_" } @temp;
    my @files = @temp;