for my $i (0..27) {
     my $file_index = sprintf "%02i", $i;
     # ...
    }
}