my @list = map { sprintf "%02d", $_ } 0..99;